100 Include "SORTMEGA"
110 Access  "SORTMEGA"
120 INFILE$  = "SAMP.DAT"
130 OUTFILE$ = "SORTED.DAT"
140 CTLSTMT$ = "S(1,10,C,A)"
150 Print "CALLING OPT-TECH SORT..."
160 SORTMEGA INFILE$, OUTFILE$, CTLSTMT$, NUMREC%, RETCODE%
170 Print "BACK FROM OPT-TECH SORT"
180 Print "NUMBER OF RECORDS SORTED = ",NUMREC%
190 Print "RETURN CODE              = ",RETCODE%
200 End
